›;v5 1Byte Prints durch Puts ersetzt -> 280 Bytes kuerzer››;v6›;als naechstes muss DOT wieder weg››PROC SNACK ()›› BYTE simple,enhanced,›      st,st1,xu,xd,xl,xr,›      a,b,x,y,›      l1,r1,›      start,select,›      i,j›› BYTE ARRAY STICK(4)=$278,STRIG(4)=$284,›            PADDLE(8)=$270,PTRIG(8)=$27C››› CLRSCR ()›› simple=0› enhanced=0›› POSITION (0,6)› ;;;;;;;0123456789012345678901234567890123456789› PRINT("       __  __              __  __ ")› POSITION (0,7)› PRINT("      (L2)(L1)            (R1)(R2)")› POSITION (0,8)› PRINT("     ")› POSITION (0,9)› PRINT("    /                              \")› POSITION (0,10)› PRINT("   /    o                      X    \")› POSITION (0,11)› PRINT("   |  o   o    sel start     Y   A  |")› POSITION (0,12)› PRINT("   |    o                      B    |")› POSITION (0,13)› PRINT("  /        |            |        \")› POSITION (0,14)› PRINT("  |                              |")› POSITION (0,15)› PRINT("  |        |            |        |")› POSITION (0,16)› PRINT("  |              |")› POSITION (0,17)› PRINT("  |      /                    \      |")› POSITION (0,18)› PRINT("  |     /                      \     |")› POSITION (0,19)› PRINT("  \    /                        \    /")› POSITION (0,20)› PRINT("   



                          



 ")›› POSITION(10,22)› PRINT("PRESS ÓÔÁÒÔ FOR MENU")›› DO›  i=PADDLE(0)›  j=PADDLE(1)››  IF i<5 and j<5 THEN›   simple=1›  ELSE›   simple=0›  FI››  IF i>120 AND i<160 AND j>120 AND j<160 THEN›   enhanced=1›  ELSE›   enhanced=0›  FI› ›  IF simple=0 and enhanced=0 THEN›   POSITION (0,2)›   PRINT ("SNACK: NOT DETECTED ")›   DO›    IF PADDLE(0)=1 AND PADDLE(1)=1 THEN›     simple=1›    FI›   UNTIL simple=1 or CONSOL=6›   OD›  FI›› UNTIL simple=1 or enhanced=1 or CONSOL=6› OD››› IF simple=1 THEN›  POSITION (0,2)›  PRINT (" SNACK: SIMPLE MODE ")›  DO›   st=STICK(0)›   xu=(st&1)›   xd=(st&2)›   xl=(st&4)›   xr=(st&8)››   POSITION (8,10)›   IF xu=0 THEN›    PUT(')›   ELSE›    PUT('o)›   FI››   POSITION (8,12)›   IF xd=0 THEN›    PUT(')›   ELSE›    PUT('o)›   FI››   POSITION (6,11)›   IF xl=0 THEN›    PUT(')›   ELSE›    PUT('o)›   FI››   POSITION (10,11)›   IF xr=0 THEN›    PUT(')›   ELSE›    PUT('o)›   FI››   POSITION (6,7)›   IF st=11 or st=3 THEN›    PRINT("(̲)(̱)")›   ELSE›    PRINT("(L2)(L1)")›   FI››   POSITION (26,7)›   IF st=7 or st=3 THEN›    PRINT("(Ò²)(Ò±)")›   ELSE›    PRINT("(R2)(R1)")›   FI››   POSITION (29,11)›   IF STRIG(0)=0 THEN›    PRINT("Ù   Á")›   ELSE›    PRINT("Y   A")›   FI››   POSITION (11,13)›   IF st=10 THEN›    PUT('‡)›   ELSE›    PUT(')›   FI››   POSITION (12,13)›   IF st=14 THEN›    PUT(252)›   ELSE›    PUT('|)›   FI››   POSITION (13,13)›   IF st=6 THEN›    PUT('†)›   ELSE›    PUT(')›   FI››   POSITION (11,14)›   IF st=11 THEN›    PUT('’)›   ELSE›    PUT(')›   FI››   POSITION (13,14)›   IF st=7 THEN›    PUT('’)›   ELSE›    PUT(')›   FI››   POSITION (11,15)›   IF st=9 THEN›    PUT('†)›   ELSE›    PUT(')›   FI››   POSITION (12,15)›   IF st=13 THEN›    PUT(252)›   ELSE›    PUT('|)›   FI››   POSITION (13,15)›   IF st=5 THEN›    PUT('‡)›   ELSE›    PUT(')›   FI››   POSITION (31,10)›   IF PADDLE(1)>200 THEN›    PUT('Ø)›   ELSE›    PUT('X)›   FI››   POSITION (31,12)›   IF PADDLE(0)>200 THEN›    PUT('Â)›   ELSE›    PUT('B)›   FI››  UNTIL CONSOL=6›  OD› FI››› IF enhanced=1 THEN›  POSITION (0,2)›  PRINT ("SNACK: ENHANCED MODE")›  DO›   st1=STICK(0)›   i=paddle(0)›   j=paddle(1)››   st=15›   IF j<10 THEN›    st=st&$0E›   FI››   IF j>200 THEN›    st=st&$0D›   FI››   IF i<10 THEN›    st=st&$0B›   FI››   IF i>200 THEN›    st=st&$07›   FI››   xu=(st&1)›   xd=(st&2)›   xl=(st&4)›   xr=(st&8)››   POSITION (8,10)›   IF xu=0 THEN›    PUT(')›   ELSE›    PUT('o)›   FI››   POSITION (8,12)›   IF xd=0 THEN›    PUT(')›   ELSE›    PUT('o)›   FI››   POSITION (6,11)›   IF xl=0 THEN›    PUT(')›   ELSE›    PUT('o)›   FI››   POSITION (10,11)›   IF xr=0 THEN›    PUT(')›   ELSE›    PUT('o)›   FI››   POSITION (11,13)›   IF st=10 THEN›    PUT('‡)›   ELSE›    PUT(')›   FI››   POSITION (12,13)›   IF st=14 THEN›    PUT(252)›   ELSE›    PUT('|)›   FI››   POSITION (13,13)›   IF st=6 THEN›    PUT('†)›   ELSE›    PUT(')›   FI››   POSITION (11,14)›   IF st=11 THEN›    PUT('’)›   ELSE›    PUT(')›   FI››   POSITION (13,14)›   IF st=7 THEN›    PUT('’)›   ELSE›    PUT(')›   FI››   POSITION (11,15)›   IF st=9 THEN›    PUT('†)›   ELSE›    PUT(')›   FI››   POSITION (12,15)›   IF st=13 THEN›    PUT(252)›   ELSE›    PUT('|)›   FI››   POSITION (13,15)›   IF st=5 THEN›    PUT('‡)›   ELSE›    PUT(')›   FI››   POSITION (33,11)›   IF st1=1 THEN›    PUT('Á)›   ELSE›    PUT('A)›   FI››   POSITION (31,12)›   IF st1=2 THEN›    PUT('Â)›   ELSE›    PUT('B)›   FI››   POSITION (31,10)›   IF st1=4 THEN›    PUT('Ø)›   ELSE›    PUT('X)›   FI››   POSITION (29,11)›   IF st1=5 THEN›    PUT('Ù)›   ELSE›    PUT('Y)›   FI››   POSITION (15,11)›   IF st1=6 THEN›    PRINT("óåì")›   ELSE›    PRINT("sel")›   FI››   POSITION (19,11)›   IF st1=7 THEN›    PRINT("óôáòô")›   ELSE›    PRINT("start")›   FI››   POSITION (26,7)›   IF st1=8 THEN›    PRINT("(Ò²)(Ò±)")›   ELSE›    PRINT("(R2)(R1)")›   FI››   POSITION (6,7)›   IF STRIG(0) THEN›    PRINT("(̲)(̱)")›   ELSE›    PRINT("(L2)(L1)")›   FI››  UNTIL CONSOL=6›  OD› FI  ››RETURN›